home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 078 (1988-11-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 078 (1988-11-15)(Ossowski, Stefan)(DE)(PD).adf / c / stefan.mod < prev    next >
Text File  |  1988-08-14  |  474b  |  19 lines

  1. MODULE Stefan; 
  2.  
  3. FROM SYSTEM IMPORT ADR;
  4. FROM Intuition IMPORT DisplayAlert;
  5.  
  6. VAR
  7.  al: RECORD
  8.   x1: CARDINAL; s1: ARRAY [0..59] OF CHAR; 
  9.   x2: CARDINAL; s2: ARRAY [0..37] OF CHAR;
  10.  END;
  11.  
  12. BEGIN
  13.  al.s1:="*Vertrieb: Stefan Ossowski, Veronikastr. 33, 4300 Essen 1 ";
  14.  al.x1:=96; al.s1[0]:=CHAR(50); al.s1[59]:=CHAR(1);
  15.  al.s2:="* Telefon: 0201/788778   T A I F U N";
  16.  al.x2:=176; al.s2[0]:=CHAR(90); al.s2[37]:=CHAR(0);
  17.  IF DisplayAlert(0, ADR(al), 150) THEN END
  18. END Stefan .
  19.